home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Scanner / Scan.0.91 / Source / pack < prev    next >
Text File  |  1996-02-03  |  549b  |  28 lines
  1. #!/usr/local/bin/perl
  2.  
  3. if ($ARGC < 2) { die "Usage: pack <name> <version>\n"; }
  4.  
  5. $appName = $ARGV[0];
  6. $version = $ARGV[1];
  7.  
  8. chdir( pkg );
  9. system("rm -rf $appName.app");
  10.  
  11. system("cp -pr ~/Apps/$appName.app ./");
  12. chdir( .. );
  13.  
  14. system("/NextAdmin/Installer.app/package pkg $appName.info");
  15.  
  16. system("mv $appName.pkg pkg/");
  17. chdir( pkg );
  18. system("cp ../README ./");
  19.  
  20. system("mkdir $appName");
  21. system("mv $appName.pkg $appName/");
  22. system("mv README $appName/");
  23.  
  24. system("tar cvof $appName.$version.nihs.tar");
  25. system("gzip $appName.$version.nihs.tar");
  26.  
  27.  
  28.